home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November / PCWK1103B.iso / CINEBENCH 2003 / resource / modules / coffee / convenience.cof next >
Text File  |  2003-02-27  |  711b  |  30 lines

  1. // This library adds some convenience functions to COFFEE
  2. // (C) MAXON Computer GmbH 2000
  3.  
  4. GetActiveDocument()
  5. {
  6.     var doc = GetFirstDocument(); if (!doc) return NULL;
  7.  
  8.     if (doc->GetBit(BIT_ADOC)) return doc; // first element is already the active one
  9.  
  10.     return doc->SearchNext(BIT_ADOC);
  11. }
  12.  
  13. GetActiveObject(doc)
  14. {
  15.     var op = doc->GetFirstObject(); if (!op) return NULL;
  16.  
  17.     if (op->GetBit(BIT_AOBJ)) return op; // first element is already the active one
  18.  
  19.     return op->SearchNext(BIT_AOBJ);
  20. }
  21.  
  22. GetActiveTag(op)
  23. {
  24.     var tag = op->GetFirstTag(); if (!tag) return NULL;
  25.  
  26.     if (tag->GetBit(BIT_ATAG)) return tag; // first element is already the active one
  27.  
  28.     return tag->SearchNext(BIT_ATAG);
  29. }
  30.